home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / JULIAN.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  332b  |  16 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE:'QBTOOLS2.INC'
  3.  
  4.  
  5. FUNCTION Julian (Dt$) STATIC
  6.  
  7. CALL DateToMDY(Dt$, M%, D%, Y%)
  8.  
  9. M! = M%
  10. D! = D%
  11. Y! = Y%
  12.  
  13. Julian! = Y! * 365 + INT((Y! - 1) / 4) + (M! - 1) * 28 + VAL(MID$("000303060811131619212426", (M! - 1) * 2 + 1, 2)) - ((M! > 2) AND ((Y! AND NOT -4) = 0)) + D!
  14.     
  15. END FUNCTION
  16.